COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST2"
C00003 ENDMK
C⊗;
BEGIN "TEST2"
	REQUIRE "MESGEM.HDR" SOURCE_FILE;
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	INTEGER B1,J1,J2,J3;

	MKUNIV;GEODPY;
	B1 ← INB3D("ARM[DAT,BGB]");
	J1 ← FDNAME("JOINT1");		α SHOULDER - ABOUT VERTICAL;
	J2 ← FDNAME("JOINT2");		α ARM - ABOUT HORIZONTAL;
	J3 ← FDNAME("JOINT3");		α SLIDE;
	INCAM("ARMCAM[DAT,BGB]");

	WHILE TRUE DO ⊂ 
	ROTATE(-J1,0,0,π/10);
	ROTATE(-J2,0,0,π/20);
	TRANSL(-J3,0,0,0.1);GEODPY;⊃;

END "TEST2";